| Filename | (eval 30)[C:/tmp64ng/perl/lib/JSON/PP.pm:66] |
| Statements | Executed 27 statements in 0s |
| Eval Invoked At | C:/tmp64ng/perl/lib/JSON/PP.pm line 66 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 9 | 1 | 1 | 0s | 0s | JSON::PP::canonical |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::get_canonical |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | |||||
| 2 | # spent 0s within JSON::PP::canonical which was called 9 times, avg 0s/call:
# 9 times (0s+0s) by CPAN::Meta::as_string at line 612 of CPAN/Meta.pm, avg 0s/call | ||||
| 3 | 9 | 0s | my $enable = defined $_[1] ? $_[1] : 1; | ||
| 4 | |||||
| 5 | 9 | 0s | if ($enable) { | ||
| 6 | $_[0]->{PROPS}->[P_CANONICAL] = 1; | ||||
| 7 | } | ||||
| 8 | else { | ||||
| 9 | $_[0]->{PROPS}->[P_CANONICAL] = 0; | ||||
| 10 | } | ||||
| 11 | |||||
| 12 | 9 | 0s | $_[0]; | ||
| 13 | } | ||||
| 14 | |||||
| 15 | sub get_canonical { | ||||
| 16 | $_[0]->{PROPS}->[P_CANONICAL] ? 1 : ''; | ||||
| 17 | } | ||||
| 18 | |||||
| 19 | ; |